VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "UtilConexion"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Attribute VB_Ext_KEY = "Member0" ,"bParametro"
Option Explicit
Private mvarConnection As New Connection
Private mvarSConnectionString As String 'local copy
Friend Property Let sConnectionString(ByVal vData As String)
'used when assigning an Object to the property, on the left side of a Set statement.
'Syntax: Set x.bParametro = Form1
    mvarSConnectionString = vData
End Property


Friend Property Get sConnectionString() As String
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.bParametro
    sConnectionString = mvarSConnectionString
End Property


Friend Property Get Connection() As Connection
'used when retrieving value of a property, on the right side of an assignment.
'Syntax: Debug.Print X.Connection
If mvarConnection.State = 0 Then
    mvarConnection.Open mvarSConnectionString
End If
    Set Connection = mvarConnection
End Property


Public Sub transactionBegin()
mvarConnection.BeginTrans
End Sub
Public Sub transactionRollBack()
mvarConnection.RollbackTrans
End Sub
Public Sub transactionCommit()
mvarConnection.CommitTrans
End Sub


